VB 列出"C:\XXX\XXX"里的所有文件，并显示在Text1中？

Private Sub Form_Load()
Dim d As String, S As String,
S = Dir("C:\XXX\XXX\")
Do While Len(S) > 0
d = d + S + vbCrLf
S = Dir
Loop
Text1.Text = d
End Sub

用file控件应该可以的吧

Private Sub Command1_Click()

If Dir("C:\XXX\XXX") <> "" Then File1.Path = "C:\XXX\XXX"
For i = 1 To File1.ListCount
w = w & File1.List(i - 1) & vbCrLf
Next
Text1 = w

End Sub